home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / xFrame_Use2065195112007.psc / xFrame UserControl / Forms / frmMain.frm next >
Text File  |  2007-05-11  |  16KB  |  476 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "xFrame"
  5.    ClientHeight    =   8190
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   7815
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   8190
  13.    ScaleWidth      =   7815
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin xFrameProject.xFrame xFrame1 
  16.       Height          =   1455
  17.       Index           =   0
  18.       Left            =   120
  19.       TabIndex        =   3
  20.       Top             =   120
  21.       Width           =   3735
  22.       _extentx        =   6588
  23.       _extenty        =   2566
  24.       colorscheme     =   0
  25.       bordercolor     =   13619151
  26.       button          =   -1  'True
  27.       buttoncolor     =   0
  28.       buttonhighlightcolor=   11513775
  29.       buttonpin       =   -1  'True
  30.       colorscheme     =   0
  31.       caption         =   "xFrame"
  32.       displaypicture  =   -1  'True
  33.       enabled         =   -1  'True
  34.       font            =   "frmMain.frx":0000
  35.       fontbold        =   0   'False
  36.       fontitalic      =   0   'False
  37.       fontsize        =   8.25
  38.       fontstrikethru  =   0   'False
  39.       fontunderline   =   0   'False
  40.       forecolor       =   0
  41.       gradientbottom  =   15724527
  42.       headergradientbottom=   13619151
  43.       headergradienttop=   16316664
  44.       picture         =   "frmMain.frx":002C
  45.    End
  46.    Begin xFrameProject.xFrame xFrame1 
  47.       Height          =   1455
  48.       Index           =   1
  49.       Left            =   120
  50.       TabIndex        =   4
  51.       Top             =   1680
  52.       Width           =   3735
  53.       _extentx        =   6588
  54.       _extenty        =   2566
  55.       caption         =   "xFrame"
  56.       enabled         =   -1  'True
  57.       font            =   "frmMain.frx":05C6
  58.       fontbold        =   0   'False
  59.       fontitalic      =   0   'False
  60.       fontsize        =   8.25
  61.       fontstrikethru  =   0   'False
  62.       fontunderline   =   0   'False
  63.       headergradientbottom=   12611136
  64.    End
  65.    Begin xFrameProject.xFrame xFrame1 
  66.       Height          =   1455
  67.       Index           =   2
  68.       Left            =   120
  69.       TabIndex        =   5
  70.       Top             =   3240
  71.       Width           =   3735
  72.       _extentx        =   6588
  73.       _extenty        =   2566
  74.       colorscheme     =   2
  75.       bordercolor     =   7645851
  76.       button          =   -1  'True
  77.       buttoncolor     =   4487268
  78.       buttonhighlightcolor=   7645851
  79.       colorscheme     =   2
  80.       caption         =   "xFrame"
  81.       displaypicture  =   -1  'True
  82.       enabled         =   -1  'True
  83.       font            =   "frmMain.frx":05F2
  84.       fontbold        =   0   'False
  85.       fontitalic      =   0   'False
  86.       fontsize        =   8.25
  87.       fontstrikethru  =   0   'False
  88.       fontunderline   =   0   'False
  89.       forecolor       =   4487268
  90.       gradientbottom  =   14938092
  91.       headergradientbottom=   7975330
  92.       headergradienttop=   14938092
  93.       picture         =   "frmMain.frx":061E
  94.    End
  95.    Begin xFrameProject.xFrame xFrame1 
  96.       Height          =   1695
  97.       Index           =   3
  98.       Left            =   120
  99.       TabIndex        =   6
  100.       Top             =   4800
  101.       Width           =   3735
  102.       _extentx        =   6588
  103.       _extenty        =   2990
  104.       colorscheme     =   3
  105.       bordercolor     =   12298664
  106.       buttoncolor     =   8283750
  107.       buttonhighlightcolor=   12298664
  108.       colorscheme     =   3
  109.       caption         =   "xFrame"
  110.       enabled         =   -1  'True
  111.       font            =   "frmMain.frx":09B8
  112.       fontbold        =   0   'False
  113.       fontitalic      =   0   'False
  114.       fontsize        =   8.25
  115.       fontstrikethru  =   0   'False
  116.       fontunderline   =   0   'False
  117.       forecolor       =   8283750
  118.       gradientbottom  =   15920108
  119.       headergradientbottom=   14140358
  120.       headergradienttop=   16118000
  121.       Begin VB.CheckBox chkOptions 
  122.          Caption         =   "Display Picture"
  123.          BeginProperty Font 
  124.             Name            =   "Arial"
  125.             Size            =   8.25
  126.             Charset         =   0
  127.             Weight          =   400
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          Height          =   255
  133.          Index           =   0
  134.          Left            =   120
  135.          TabIndex        =   13
  136.          Top             =   360
  137.          Width           =   1455
  138.       End
  139.       Begin VB.CheckBox chkOptions 
  140.          Caption         =   "Enabled"
  141.          BeginProperty Font 
  142.             Name            =   "Arial"
  143.             Size            =   8.25
  144.             Charset         =   0
  145.             Weight          =   400
  146.             Underline       =   0   'False
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          Height          =   255
  151.          Index           =   1
  152.          Left            =   120
  153.          TabIndex        =   12
  154.          Top             =   600
  155.          Width           =   1455
  156.       End
  157.       Begin VB.CheckBox chkOptions 
  158.          Caption         =   "Enable Gradient"
  159.          BeginProperty Font 
  160.             Name            =   "Arial"
  161.             Size            =   8.25
  162.             Charset         =   0
  163.             Weight          =   400
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   255
  169.          Index           =   2
  170.          Left            =   120
  171.          TabIndex        =   11
  172.          Top             =   840
  173.          Width           =   1455
  174.       End
  175.       Begin VB.ComboBox cboColourScheme 
  176.          BeginProperty Font 
  177.             Name            =   "Arial"
  178.             Size            =   8.25
  179.             Charset         =   0
  180.             Weight          =   400
  181.             Underline       =   0   'False
  182.             Italic          =   0   'False
  183.             Strikethrough   =   0   'False
  184.          EndProperty
  185.          Height          =   330
  186.          Left            =   2040
  187.          TabIndex        =   10
  188.          Text            =   "xpBlue"
  189.          Top             =   360
  190.          Width           =   1575
  191.       End
  192.       Begin VB.CheckBox chkOptions 
  193.          Caption         =   "Show Button"
  194.          BeginProperty Font 
  195.             Name            =   "Arial"
  196.             Size            =   8.25
  197.             Charset         =   0
  198.             Weight          =   400
  199.             Underline       =   0   'False
  200.             Italic          =   0   'False
  201.             Strikethrough   =   0   'False
  202.          EndProperty
  203.          Height          =   255
  204.          Index           =   3
  205.          Left            =   120
  206.          TabIndex        =   9
  207.          Top             =   1080
  208.          Width           =   1455
  209.       End
  210.       Begin VB.CheckBox chkOptions 
  211.          Caption         =   "Show Button Pin"
  212.          BeginProperty Font 
  213.             Name            =   "Arial"
  214.             Size            =   8.25
  215.             Charset         =   0
  216.             Weight          =   400
  217.             Underline       =   0   'False
  218.             Italic          =   0   'False
  219.             Strikethrough   =   0   'False
  220.          EndProperty
  221.          Height          =   255
  222.          Index           =   4
  223.          Left            =   120
  224.          TabIndex        =   8
  225.          Top             =   1320
  226.          Width           =   1575
  227.       End
  228.       Begin VB.CheckBox chkOptions 
  229.          Caption         =   "Frame Pinned"
  230.          BeginProperty Font 
  231.             Name            =   "Arial"
  232.             Size            =   8.25
  233.             Charset         =   0
  234.             Weight          =   400
  235.             Underline       =   0   'False
  236.             Italic          =   0   'False
  237.             Strikethrough   =   0   'False
  238.          EndProperty
  239.          Height          =   255
  240.          Index           =   5
  241.          Left            =   2040
  242.          TabIndex        =   7
  243.          Top             =   1320
  244.          Width           =   1575
  245.       End
  246.    End
  247.    Begin xFrameProject.xFrame xFrame1 
  248.       Height          =   1455
  249.       Index           =   4
  250.       Left            =   3960
  251.       TabIndex        =   14
  252.       Top             =   120
  253.       Width           =   3735
  254.       _extentx        =   6588
  255.       _extenty        =   2566
  256.       colorscheme     =   0
  257.       bordercolor     =   13619151
  258.       buttoncolor     =   0
  259.       buttonhighlightcolor=   11513775
  260.       buttonpin       =   -1  'True
  261.       colorscheme     =   0
  262.       caption         =   "xFrame"
  263.       enabled         =   -1  'True
  264.       enablegradient  =   -1  'True
  265.       font            =   "frmMain.frx":09E0
  266.       fontbold        =   -1  'True
  267.       fontitalic      =   0   'False
  268.       fontsize        =   8.25
  269.       fontstrikethru  =   0   'False
  270.       fontunderline   =   0   'False
  271.       forecolor       =   0
  272.       framepinned     =   -1  'True
  273.       gradientbottom  =   15724527
  274.       headergradientbottom=   13619151
  275.       headergradienttop=   16316664
  276.    End
  277.    Begin xFrameProject.xFrame xFrame1 
  278.       Height          =   1455
  279.       Index           =   5
  280.       Left            =   3960
  281.       TabIndex        =   15
  282.       Top             =   1680
  283.       Width           =   3735
  284.       _extentx        =   6588
  285.       _extenty        =   2566
  286.       button          =   -1  'True
  287.       buttonpin       =   -1  'True
  288.       caption         =   "xFrame"
  289.       displaypicture  =   -1  'True
  290.       enabled         =   -1  'True
  291.       enablegradient  =   -1  'True
  292.       font            =   "frmMain.frx":0A04
  293.       fontbold        =   0   'False
  294.       fontitalic      =   0   'False
  295.       fontsize        =   8.25
  296.       fontstrikethru  =   0   'False
  297.       fontunderline   =   0   'False
  298.       headergradientbottom=   12611136
  299.       picture         =   "frmMain.frx":0A34
  300.    End
  301.    Begin xFrameProject.xFrame xFrame1 
  302.       Height          =   1455
  303.       Index           =   6
  304.       Left            =   3960
  305.       TabIndex        =   16
  306.       Top             =   3240
  307.       Width           =   3735
  308.       _extentx        =   6588
  309.       _extenty        =   2566
  310.       colorscheme     =   2
  311.       bordercolor     =   7645851
  312.       buttoncolor     =   4487268
  313.       buttonhighlightcolor=   7645851
  314.       buttonpin       =   -1  'True
  315.       colorscheme     =   2
  316.       caption         =   "xFrame"
  317.       enabled         =   -1  'True
  318.       enablegradient  =   -1  'True
  319.       font            =   "frmMain.frx":0FCE
  320.       fontbold        =   0   'False
  321.       fontitalic      =   -1  'True
  322.       fontsize        =   8.25
  323.       fontstrikethru  =   0   'False
  324.       fontunderline   =   0   'False
  325.       forecolor       =   4487268
  326.       gradientbottom  =   14938092
  327.       headergradientbottom=   7975330
  328.       headergradienttop=   14938092
  329.    End
  330.    Begin xFrameProject.xFrame xFrame1 
  331.       Height          =   1695
  332.       Index           =   7
  333.       Left            =   3960
  334.       TabIndex        =   17
  335.       Top             =   4800
  336.       Width           =   3735
  337.       _extentx        =   6588
  338.       _extenty        =   2990
  339.       colorscheme     =   3
  340.       bordercolor     =   12298664
  341.       button          =   -1  'True
  342.       buttoncolor     =   8283750
  343.       buttonhighlightcolor=   12298664
  344.       colorscheme     =   3
  345.       caption         =   "xFrame"
  346.       displaypicture  =   -1  'True
  347.       enabled         =   -1  'True
  348.       enablegradient  =   -1  'True
  349.       font            =   "frmMain.frx":0FFA
  350.       fontbold        =   0   'False
  351.       fontitalic      =   0   'False
  352.       fontsize        =   8.25
  353.       fontstrikethru  =   0   'False
  354.       fontunderline   =   0   'False
  355.       forecolor       =   8283750
  356.       gradientbottom  =   15920108
  357.       headergradientbottom=   14140358
  358.       headergradienttop=   16118000
  359.       picture         =   "frmMain.frx":1026
  360.    End
  361.    Begin xFrameProject.xFrame xFrame1 
  362.       Height          =   1455
  363.       Index           =   8
  364.       Left            =   120
  365.       TabIndex        =   18
  366.       Top             =   6600
  367.       Width           =   3735
  368.       _extentx        =   6588
  369.       _extenty        =   2566
  370.       bordercolor     =   8431551
  371.       buttoncolor     =   7706519
  372.       buttonhighlightcolor=   13619151
  373.       caption         =   "xFrame Disabled"
  374.       font            =   "frmMain.frx":13C0
  375.       fontbold        =   0   'False
  376.       fontitalic      =   0   'False
  377.       fontsize        =   8.25
  378.       fontstrikethru  =   0   'False
  379.       fontunderline   =   0   'False
  380.       forecolor       =   7706519
  381.       gradientbottom  =   16317178
  382.       headergradientbottom=   9481131
  383.       headergradienttop=   14739431
  384.       picture         =   "frmMain.frx":13EC
  385.       Begin VB.CheckBox Check1 
  386.          Caption         =   "Check1"
  387.          Enabled         =   0   'False
  388.          Height          =   255
  389.          Left            =   2760
  390.          TabIndex        =   0
  391.          Top             =   840
  392.          Width           =   855
  393.       End
  394.       Begin VB.OptionButton Option1 
  395.          Caption         =   "Option1"
  396.          Enabled         =   0   'False
  397.          Height          =   255
  398.          Left            =   1800
  399.          TabIndex        =   1
  400.          Top             =   840
  401.          Width           =   975
  402.       End
  403.       Begin VB.ComboBox Combo1 
  404.          Enabled         =   0   'False
  405.          Height          =   315
  406.          Left            =   120
  407.          TabIndex        =   2
  408.          Top             =   840
  409.          Width           =   1455
  410.       End
  411.       Begin VB.CommandButton Command1 
  412.          Caption         =   "Command1"
  413.          Enabled         =   0   'False
  414.          Height          =   300
  415.          Left            =   1800
  416.          TabIndex        =   20
  417.          Top             =   480
  418.          Width           =   1815
  419.       End
  420.       Begin VB.TextBox Text1 
  421.          Enabled         =   0   'False
  422.          Height          =   300
  423.          Left            =   120
  424.          TabIndex        =   19
  425.          Top             =   480
  426.          Width           =   1455
  427.       End
  428.    End
  429. End
  430. Attribute VB_Name = "frmMain"
  431. Attribute VB_GlobalNameSpace = False
  432. Attribute VB_Creatable = False
  433. Attribute VB_PredeclaredId = True
  434. Attribute VB_Exposed = False
  435. Option Explicit
  436.  
  437. Private Sub cboColourScheme_Change()
  438.     xFrame1(8).ColorScheme = cboColourScheme.ListIndex
  439. End Sub
  440.  
  441. Private Sub cboColourScheme_Click()
  442.     Call cboColourScheme_Change
  443. End Sub
  444.  
  445. Private Sub chkOptions_Click(Index As Integer)
  446.     Select Case Index
  447.         Case 0
  448.             xFrame1(8).DisplayPicture = chkOptions(0).Value
  449.         Case 1
  450.             xFrame1(8).Enabled = chkOptions(1).Value
  451.         Case 2
  452.             xFrame1(8).EnableGradient = chkOptions(2).Value
  453.         Case 3
  454.             xFrame1(8).Button = chkOptions(3).Value
  455.         Case 4
  456.             xFrame1(8).ButtonPin = chkOptions(4).Value
  457.         Case 5
  458.             xFrame1(8).FramePinned = chkOptions(5).Value
  459.     End Select
  460. End Sub
  461.  
  462. Private Sub Form_Load()
  463.     With cboColourScheme
  464.         .AddItem "xpDefault"
  465.         .AddItem "xpBlue"
  466.         .AddItem "xpOliveGreen"
  467.         .AddItem "xpSilver"
  468.     End With
  469. End Sub
  470.  
  471. Private Sub xFrame1_Click(Index As Integer)
  472.     MsgBox xFrame1(0).Expanded
  473. End Sub
  474.  
  475.  
  476.